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MARBAARAAAAASAALALALALALALALS EEE SESE EEE E SERRE EERE EASE ESE REESE SERRE EEE ERR RES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE tg? MAY BE USED AND coriee 
ONLY IN ACCORDANCE TH THE 


OOOCoOoooooo 


OOOCoCoo 


ie . 
3* & 
3* * 
3* oo 
3* & 
3 & 
3* ® 
3* CLUS ANY OTH * 
:* COPIES THEREOF a NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
3* ® 
pie INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE * 
3 ® 
* ® 
3* ® 
3* ® 
7* os 
3* ® 
3* & 
3 ® 


SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


ITY FOR THE USE OR RELIABILITY OF ITS 


IBILITY 
H IS NOT SUPPLIED BY DIGITAL. 
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; FACILITY: DECNET HOST LOADER (HLD) 

: ABSTRACT: 

: HLD IS A COMPONENT OF DECNET/VAX-11. IT PROVIDES ACCESS TO 
: RSX11S TASK IMAGES STORED ON A VAX SYSTEM. 

ENVIRONMENT : 


THE HLD IMAGE EXECUTES IN THE CONTEXT OF A PROCESS CREATED BY 
NETACP. IT RUNS IN USER MODE AND REQUIRES NETWORK PRIVILEGE. 


AUTHOR: SCOTT G. DAVIS, CREATION DATE: 23-MAY-79 
MODIFICATIONS: 
v001 $600002 19-Mar-1984 


Add error message for improper connect from SLD 


INCLUDE FILES 
SHLDDEF 
MACROS: 
NONE 
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- HLD FILE 1/0 


par 


NOSHR ,NOEXE ,RD ,NOWRT ,LONG 


OCAL DATA 


an 


H THE 1ST REC IN HLD.DAT 


VT WwW wa 
rovwwww 


WeorwwOoodw 
www 


wmsa 
WATT 


vauw 
vwvwvw 


www 
wom 
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] 
- HLD FILE 1/0 16-SEP-1 :5 AX/VMS Macro V04-00 Page 3 | 
g-8é EP=19 3b $133 36 PLD. SRCIMLDFILE MARS 1 ed 
0000 z .PSECT HLDSCODE NOSHR,EXE,RD,NOWRT | 
ue p++ | 
te i ; FUNCTIONAL DESCRIPTION: 
009 i: ; HLDS$GET_FILE OPENS SYSSSYSTEM:HLD.DAT AND SCANS IT FOR THE | 
990 ii + REQUIRED TASK 
i 19 : INPUTS: 
00 1: R1 = POINTS TO OPTIONAL DATA FIELD 
909 : OUTPUTS: 
$0 5: R11 = POINTS TO OPTDATA FIELD AFTER TASK NAME 
900 86 : HLDS$GW_SAVEFUNC = SAVES I/O FUNCTION n FOR TRANSFER 
$333 
9000 30 .ENABLE LOCAL_BLOCK 
9000 3 HLDSGET_FILE:: : ENTRY POINT 
9000 34 : VALIDATE THE CONNECT PARAMETERS 
56 61 90 0000 96 * MOVB (R1),R6 ; Get no. of bytes of userdata 
81 03 90 0003 97 VB #3, (R1)+ : 3 bytes going back 
51 D 0006 98 PUSHL R : Save base of OPTDATA 
FFFS* 30 0008 99 BSBW  HLDSCSTA DECODE THE TASK NAME 
58 8ED0 000B 100 POPL R11 Rest e. pose of 0 
0000'CF O000'CF 9E 000g 101 MOVAB W*HLDSGT_INVALID.W*HLDSGT_ OPER UME INVALID TREQUEST 
01 00°AB 1 0013 108 CHPB B“HLD$B_CUN_FLAG(R11) ,#1 “TETELD TW RAN NGE? 
52 00'AB 9A 001B 104 MOVZBL B*HLDSB_REQUEST(R11),R2 : GET THE REQUEST 
OE 56 91 OO1F 105 CMPBOR6 #14 ~ t RIGHT AMOUNT OF USERDATA? 
3E 12 0022 106 BNEQ re > IF NEQ NO = INVALID CONNECT 
52 «96 «20024 «= «107 INCB + NORMALIZE 
1A 13 «(0026 ~=—:108 BEQL > IF EQL OVERLAY REQUEST 
03 32 91 0028 109 CMPB ie : FIELD IN RANGE (-1 TO #2)? 
55 1A 0028 110 BGTRU 2 § ; IF GTRU NG 
13 12 002D 111 BNEQ IF NEQ NOT CHECKPOINT WRITE 
0000'CF OO00'CF 9E O02F 118 MOVAB OPHLOSNET 10,W°HLDSGL_IOROUT_1 ; FIRST. NET DATA 
0000'CF  0000'CF 3 0036 «11 MOVAB W*HLDSDISR GAT TECUeHE DSL 10ROUT_2 ; THEN DO DISK OPERATION 
0000'CF 00° B 878 133 $s: MOVW S*#10$_READVBLK ,W*HLDSGW_SAVEFUNT ; “NETWORK DOES READ 
0000'CF  O0000°CF42 00 a8 116 : MOVL § W*HLDSAT_REQ_TYPECR2],W*HLDSGT_OPER ; SAVE PTR TO NAME OF REQUEST 
O4A 118 : NOW OPEN HLD.DAT AND SCAN IT FOR WHAT IS NEEDED 
50 0000'CF 3 ach 1 p MOVAB W*H DSDATFAB, RO : SET TO OPEN FILE 
FFAE® 3 ' oe BSBW HLDSRMS OPEN : DO IT 
50 o0ro'cr 09¢ 1 : MOVAB W*HLDSDATRAB : SET TO CONNECT record STREAM 
FFAG’ 3 oh ; BSBW HLDSRMS_ He Psy : DO IT | 
O8h 199 PROCESS THE RECORDS 
0111 30 Be 1 $ , BSBW GET_RECORD : GET THE FIRST RECORD | 


<= 


1 
B 2 | 
- HLD FILE 1/0 16-SEP-1984 01:40: AX/VMS Macro V04-00 Page 4. 
a sae 4 9 358 :36 PEOVER TAC DEILE MAR: 1 . (1) | 
58 0000*¢F sD] MOVAB W*FIRST RECORD, RB ; SET TO MATCH | 
149 % 6 1 BSBW MATCH gTRING + IS STRING RIGHT? 
2050 € BLBC ~=—_-« RO, 105 : IF LBC NO 
; SCAN FOR GENERAL PURPOSE TASKS 
. } 
134 TRY_NEXT_ TASK: 
013¢ 30 68 135 6SBw F AND TASK : HAVE A RECORD WITH "'HTASK$''? 
1A E 68 $ BLBC ~=—_—«aRO, 100 : IF LBC NO = SCAN FOR NODE NAMES | 
6E g > LOOK AT THE GENERAL PURPOSE TASKS FOR A POSSIBLE MATCH 
015¢ 30 Oee 140 ° BSBW MATCH _TASK ; TRY TO MATCH THE TASK NAME 
r4 5 £9 0 is oes BLBC RO, TRY_NEXT_TASK : IF LBC NOT FOUND = LOOP 
00° AB 3 74 148 TSTB B°HLDSB_LUNFLAG(R11) + CAN SLD HANDLE GENERAL=PURPOSE TASKS? 
a ia 077 14 BEQL 100 :; If EQL no - try for named nodes 
0000° CF 144 144 INCB W*HLD3GB_LUNFLAG ; General purpose tasks require lun-fixing 
OO'AB 9 7D 3=— 145 TSTB B*HLD$B_REQUEST(R11) 3 Is this a checkpoint operation? 
4c 15 +4 13 BLEQ OPEN_TASK 3; If LEQ no = proceed 
08 148 : ILLEGAL CONNECT REQUESTED 
8085 180 $08: 
56 09 p0 082 151 "  MOVL «= MHLDSC_ERR_REQST,R6 : Illegal request from SLD 
0008 1 ie 136 BRW COMMON_EXIT ; Go to common code 
088 154 : SCAN FOR NODE NAME MATCH 
888 186 foos | 
OOO0O'CF 94 0088 133 CLRB W*HLD$GB_GPFLAG ; This is not a general purpose task 
Stl $3 RF 128 EREYEREMMSSECOND FIRST ACEI 
03 50 : 092 160 BLBS _—-RO, 1 : IF LBS OK 
0oBE «31 095 161 1058: BRW FORMAT_ERROR + FILE FORMAT ERROR 
OOFS 30 $98 188 "- BSBW  NEXT_FIELD : GET TO THE NAME 
58 O000'CF 9E 0098 164 MOVAB W*HLO$GQ NODEDESC,R8 §§ ; POINT TO NODE DESCRIPTOR 
0108 165 BSBW MATCH STRING : SEE IF THERE IS A MATCH 
19 § 166 dias BLBS  RO,150$ : TRY FOR TASK NAME 
00c5 168 " BSBW  - GET_RECORD ; READ NEXT HLD.DAT RECORD 
11A 169 BSBW F IND_NODE : SEARCH FOR A HNODES RECORD 
E9 50 170 BLES Sse : IF LBS FOUND 
OOcE 171 SBW = RESCAN_ RECORD ; START AGAIN | 
58 O02A'CF 1% MOVAB W*END_FLAG,R8 : SEE IF AT END OF FILE 
OF4 17 SBW = MATCH STRING : MATCH WITH "'. END’ 
0 30 174 BLBS RO, 160$ ; IF LBS MATCH = COULDN'T FIND MATCH 
E 175 BRB 126$ : TRY FOR HNODES | 
179 : NODE FOUND - TRY FOR TASK MATCH | 
199 isos: % 
90 5 1 0 BSBW ss: FAND_ TASK : LOOK FOR “'HTASKS 
0 9 1 BLBS ; IF LBS PROCEED 
00 : 108: BRM SEARCH_FAILURE ; COULDN'T FIND WHAT I WANTED 
0102 184 " BSBW  =MATCH_TASK ; IS THIS THE RIGHT TASK? | 
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RO,150$ 
LOCAL BLOCK 


TASK FOUND = GET READY TO OPEN UP THE 


Re yay. P HLDSGB. TSKFNS 

NEXT FIELD 

R 

CR R1)+¢ a oe ee 

SYNTAX ERROR 
NEXT_FTELD 

USRAP_ STRING, RB 

BATCH. STRING 

Ree} R1 

W*UNM_STRING,R8 

Mi “STRING 

W*HLD$GB_MAPFLAG 

WL DSGB GPFLAG 

FORMAT ERROR 

W*HLDSGB_MAPFLAG 

GULOSY_PART_ADDR(R11) 
1008 


B*HLD$W_PART_ADDR(R11) 
100$ 


(SP)+ 
TRY_NEXT_TASK 


(SP)+ 


F AB=W“HLDSDATF AB 


. . 


ae 
; SET ALUN 


; CLEAN UP STACK 


60:38 AX/VMS Macro v04-00 Page 
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; IF LBC NO = TRY FOR ANOTHER 


FILE 


VE_PAST COMMA 
IS Ha RIGHT DELIMITER 


RVE 41 A PIL ESPeC 
HE TERMINATOR 


NOT FOU ND 
Ast FILESPEC 


cro mmx 
o 
im 


wer 4 
S52 


os 
FIELD 
THE RECORD EATEN? 


“oz<-+ 2m 
m om moMNZz—em 


~-7P-- OMT DWNMNMOO 
mm © 


: L yes 

; NEXT DELIMITER OK? 
; IF NEQ NO 

; wove As NEXT FIELD 


T TO FIND FIL 


; E TYPE 
; ‘re alte POINTER FOR A LIMITED RESCAN 


MATCH 
Ir S ‘MAP"' 
ESTORE PTR 
RY ‘ ee 
0 IT . 
f LBC not **UNM’ 
ET ‘UNM 
s this a general-purpose task? 
f EQL no = can't mix types 
apped task? 
f EQL yes 
apped task requested? 
f EQL yes, but this ain't it 
inish in common code 


apped task requested? 
QL yes - proceed 


:; Clean up the stack 
; Keep looking for task 


; ee ee PTR 


Y “LUN 


; CLOSE THE DATA FILE 


<= 
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yoe-608 Se 7 8} 158336 HLD.SRCJHLDFILE.MAR;1 
05 5 4 858 ; DONE 
1 44 FORMAT_ERROR: 
56 01 p9 1 45 MOVL #§ #HLDSC_ERR_FORMT,R6 : FORMAT ERROR 
8 11 4 4 BRB COMMON“EXIT : GO TO COMMON EXIT 
158 48 SYNTAX_ERROR: 
56 09 20 158 MOVL #HLDSC_ERR SYNTX,R6 : SYNTAX ERROR 
1 BRB COMMON-EXIT : GO TO COMMON CODE 
16 SEARCH_FAILURE: 
56 03 vO 01 #HLOSC_ERR_SERCH,R6 : FILE NOT FOUND 
1 COMMON_EXIT 
0000" ¢F 1 4 _ R6,W*HLDSGB ERRORFLG ; SAVE THE ERROR CODE 
MOVL §6§ NORMAL ,R ; No more messages in LOG 
0 y 1 5 0 “#SS$_NORMA i 
FE92" 168 6 BRw HLDSEXTT_TO_VMS 


<= 


HLOF - HLD FILE 1/0 16-SEP=1984 01:40:52 YAX/VMS Macro V04-00 Page 7 | 4 
YOeL ODD eet 1 8 58:36 HLD. SRCJHLDFILE.MAR; 1 . (1) | s 
3 | $ 
18 te | 6 
16E 0 ; GET_RECORD = THIS ROUTINE GETS A RECORD FROM THE OPEN FILE AND RETURNS | $ 
} E ; THE LENGTA AND ADDRESS OF THE RECORD. | : 
18E : RESCAN_RECORD = THIS ROUTINE RESETS TO THE BEGINNING OF THE H 
JOE 64 ; CURRENT RECORD. > 
18 6 : NEXT_FIELD = THIS ROUTINE IGNORES BLANKS AND TABS " 
16E 6 ; INPUTS: " 
Sf : ; HLDSDATRAB (GET_RECORD, RESCAN_RECORD) H 
16 f ; RO,R1 = DESCRIPTOR OF REMAINDER OF RECORD (NEXT_FIELD) " 
16€ 273 ; OUTPUTS: H 
16E 276: H 
16 75; RO = REMAINING CHARACTERS IN RECORD R 
16E 16 ; Rl = POINTER TO FIRST NON-BLANK, NON-TAB CHARACTER IN RECORD ; 
16E 28 j-- s 
O16E 7 5 
16E 280 GET_RECORD: 5 
O16E 81 $GET | RAB=W*HLDSDATRAB ; GET THE FIRST RECORD 
17 Be CHECK_RMS : SEE IF OK 
51 D5 17C «88 TSTL” R + END-OF =F ILE? 
6 1 ve i BEQL § FORMAT_ERROR : IF EQL YES - JUST GO AWAY 
180 286 RESCAN_RECORD: 
50 O000°CF 3¢ 180 8 MOVZWL W*HLOSGW_DATRSZ,RO ; SET UP RECORD LENGTH 
51 O000'CF DO 018 88 MOVL.  W*HLDSGL~DATRBF .R1 : SET UP RECORD POINTER 
0000'cF 51 50 Ci O18A 289 ADDL3 RO,R1,W°ALDSGL_RECEND : POINT TO END OF RECORD 
190 290 + FALL THROUGH TO FIND 1ST 
190 291 : INTERESTING CHARACTER 
0190 3 NEXT_FIELD: 
50 O000'CF 51 C3 190 3 “me SUBL3 R1,W*HLDSGL_RECEND,RO ; COMPUTE CHARS LEFT IN RECORD 
20 61 91 196 98 " CMPB (RT), #*X20 : BLANK? P 
05 13 019 9 BEQL : IF EQL YES - 
09 61 91 «0198 29 CMPB Ss (R11), #*X9 : TAB? I 
06 12 019 38 BNEQ 208 : IF NEQ NO = DONE C 
1A 15$: P 
51 pg OIA INCL R11 : MOVE THE POINTER | 5 
30 D7 OIA 1 DECL RO : ANOTHER CHARACTER EATEN P 
F 12 OA ¢ BNEQ 10$ ; IF NEQ MORE CHARS IN RECORD Ss 
O1A6 208 | p 
05 01A6 RSB > DONE | ¢ 
Par 
5 
T 
2 
| 1 
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FIND TASK = FIND A RECORD WITH A TASK DESCRIPTOR IN IT (HTASK$) 


OUTPUTS: 
RO = LBS=>SUCCESS, LBC=>FAILURE 


Te Te Te Te Te Tere 
q 
a 


; OUTPUTS: 
: RO = LBS=>SUCCESS, LBC=>FAILURE 


50 0000°CF 51 C3 R1,W*HLDSGL_RECEND,RO ; COMPUTE ~ ates — CHARS LEFT 
68 50 61 RO; (RB) : ENOUGH TO MATCH? 
0A TF BLSSU «1008 : IF LSSU NO 
04 B8 61 68 2g CMPC 1852 6ER1), a4(R8) 5 ? 
3 12 BNEQ 100$ : IF NEQ NO 
0 v6 INCL RO : SUCCESS 
0 RSB : DONE 
100$: 
50 4 CLRL =. RO ; FAILURE 
05 RSB > DONE 


++ 
FIND_NODE - FIND A RECORD WITH A NODE DESCRIPTOR IN IT (HNODES) 


OUTPUTS 
RO ~ LBS=>SUCCESS, LBC=>FAILURE 


" Se Se Se Ge Ge Ge Se Se 


IND_NODE : 
MOVAB W*NODE_FLAG,R8 ; . 


58 O01C'CE 
E1 BRB MATCH_STRING 


i 


CH "‘HNODES"’ 
TCH AND RETURN 


s+ 


a me ee ee ae od dd 8 
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: 
5 
; 
3 
’ 
5 
; 
5 
’ 
MATCH_STRING: 
-" SUBL3 
: 
: 
5 
; 
: 
: 
5 
5 
: 
0 
) 


| 
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; MATCH_TASK = THIS ROUTINE MATCHES THE REQUESTED NAME WITH ONE IN THE FILE 


Page dy 


ee TAS ipB  GET_RECORD FETCH A RE 
58 o00e EF MOVAB W*TASK_FLAG,R8 > SET TO MATC i 
PAL THROUGH TO TRY FOR MATCH AND RETURN 
p44 
; MATCH_STRING = MATCH A STRING EXACTLY 
: INPUTS 
: R1 = POINTER TO ONE STRING 
; RB = ADDRESS OF DESCRIPTOR OF STRING TO MATCH 
; HLDSGL_RECEND = FOR COMPUTING MAX NO. OF CHARS THAT CAN BE LEFT 


‘iz <= 


za = -01 


wet Ens tease MCSESHOE S:AE:SS URWUGRCHEGRLLRSME,, Pm 


1¢D 3; 
1¢D 4 : outputs: 
1€D 5; RO = LBS=>SUCCESS, LBC=>FAILURE 
10D 8 
1€D $ MATCH_TASK: 
1 10 O1CD p BSBB Os NEXT _FIELD ; FIND START OF TASK NAME 
1 op O1CF 37 PUSHL + SAVE POINTER 
61 07 A 0101 a LOCC. #*A/,/,#7,(R1) : FIND THE DELIMITER 
BA 108 7 POPR #*M<R1> : RESTORE POINTER 
iF 1D 74 BNEQ + IF NEQ FOUND 
FF7F 109 3 ae BRW SYNTAX_ERROR t SYNTAX ERROR 
50 07 50 a3 010 ig SUBW3 = RO, #7, RO : COMPUTE LENGTH OF NAME IN RECORD 
50 Bl OTE 28 CMPW RO. #6 : TOO BIG 
10 1A OE 7 BcTRuU 1006$ : IF GTRU YES 
61 SO 20 O001'CF 06 2D OIE 0 CMPC #6 W“HLDSAT_TSKBUF+1,#*xX20,R0,(R1) ; TRY TO MATCH TASK NAME 
12 O1ED 1 BNEQ 106$ ; IF NEQ FAILED 
9 D6 O1EF é INCL RO : INDICATE SUCCESS 
51 DO O1F1 MOVL  R3,R1 + RESTORE POINTER 
05 O1F4 4 RSB ; DONE 
1F 5 100$: 
50 04 OTF CLRL = RO ; INDICATE FAILURE 
05 OF RSB + RETURN 
O1F8 388 
O1F8 389 END 


H 2 | 
=~ HLD FILE 1/0 16SEP-1984 01:40:52 VAX/VMS Macro v04-00 Page 10 
grea 18Be 81:58:35 FARSMES Bacco vO4=00 coe 19, | 


SYSSGET eereeree GX 

TASK_FLAG OE R 

TRY RT TASK R 
UNM= STRING 41 R | 


| 
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morte 
Symbol table 


° > 
DBDDDDDDDD 


GET_RECORD 

HLDSAT_ REQ TYPE eeeeeee 
HLD TSKBuF eueeeene 
HL0$8_CUN FLAG eereneee 
HLD$B- REQUEST eereenes 
HLDOSCSTA eeeeeeer 
HLOSCHECK_RMS eeereere 
HLDSC_ERR_FORMT= 1 


5 
2¢ 
<x a 
COOCCOCOCOCOOCOCOOOO 


—= 


OPE K 
RESCAN_RECORD 
SEARCH FAILURE 


ss MAL 
SYNTAX_ERROR 
SYSSCLOSE 


geeeeresr 
eeeerere 
geeeeenre 
eereeenre 
grereeee 
eenenaere 
gereeree 
gererere 
geeeerre 


geereeee 
gerenrere 
geeenrene 
gerecere 
geeeeeee 
geeereee 
gerterree 
geeneeee 
geerenee 
eeereree 
geeeeree 
geeerere 
eerereee 
geecenrere 
eeeeeeee 
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! Psect synopsis ! 


er emer ewww sem more e $ 


PSECT name Allocation PSECT No. Attributes 


» ABS . 090000 ( -) 00 ¢ Q.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS Boe ( -) Q1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
HLDSPURE 8 ) ¢ ( §°} NOPIC USR CON REL LCL NOSHR NOEXE RD WNOWRT NOVEC LONG 
HLOSCODE 000 1FB8 ¢ =5$04.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 


Goeoeecoceceoces DERM Bee swam 


! Performance indicators ! 


¢ererwe tw reer en een concer en > 


Phase Page faults CPU Time Elapsed Time 


Initialization 39 0: 0: 8.08 0:00:01. 
Command processing 149 0:00:00. 3 : $3 
2 tabl t 4 0; Of. 3 00: 0:1 
able sor :00:00. :00:00. 
Pass 2 81 700: 00: ] 0:09: 4 
Symbol table output 7 . $ 3: :00.5 
Psect synopsis output ; 0: 8 BR: 0.0 
Cross-reference output Ba: : :09: +4 333 1-2 
Assembler run totals 426 0:0 -6 0:00:14. 


he working set Limit was 1200 pages. 

ay 5 bytes (18 pages) of virtual memory were used to buffer the intermediate c 

There were 10 pages of symbol table space allocated to hold 66 non-local and $90 local symbols. 
9 source Lines were read in Pass 1, producing 18 object records in Pass 2. 

135 pages of virtual memory were used to define 11 macros. 
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! Macro Library statistics : 


$ wer ern ceeercece ee eee eeneaeeeaceae 


Macro Library name Macros defined 


5 SS2eSDuace: CHD. -OBJJHLD. MLB; 1 2 
$255$DUA28 SYSLIBISTARLET. MLB;2 g 

TOTALS (all Libraries) 

126 GETS were required to define 8 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:HLDF ILE/OBJ=OBJ$:HLDFILE MSRCS$:HLDF ILE/UPDATE=(ENHS:HLDF ILE) +LIB$:HLD/LIB 
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